home *** CD-ROM | disk | FTP | other *** search
/ Especial Multimedia / Especial Multimedia.iso / Multimed / Herra / SLANG10.ZIP / CALENDAR.VEC < prev    next >
Text File  |  1997-09-14  |  2KB  |  104 lines
  1. ADDZOOM(1,1)
  2. setline(0, 1)
  3.  
  4. 'ADDZOOM(5, 5)                       ' For printing
  5. 'setline(0, 8)                            ' For printing
  6.  
  7. style(1, 15)
  8. fill(1)
  9. zoom(1, 1)
  10. rectangle(0, 0, 1000, 1000)
  11.  
  12. scroll(1800, 500)
  13. play("bird.vec")
  14. scroll(0, 500)
  15. zoom(0.35, 0.33)
  16.  
  17. color(0)
  18. font("trip.chr")
  19. @calendar(80, 120, 1995, 0)
  20.  
  21. END
  22.  
  23. @CALENDAR(l, t, year, v)
  24. day = 7
  25. IF year = 1996 THEN day = 1 ENDIF
  26.     x = l: y = t + 15
  27.     FOR i = 1 TO 3
  28.         TEXT(x, y, "Mo")
  29.         y = y + 30
  30.         TEXT(x, y, "Tu")
  31.         y = y + 30
  32.         TEXT(x, y, "We")
  33.     y = y + 30
  34.         TEXT(x, y, "Th")
  35.         y = y + 30
  36.         TEXT(x, y, "Fr")
  37.         y = y + 30
  38.         TEXT(x, y, "Sa")
  39.         y = y + 30
  40.         TEXT(x, y, "Su")
  41.  
  42.         y = y + 100
  43.     NEXT
  44.     x = l + 100: y = t -30
  45.   day=@MON(x, y, "January",day, 31)
  46.   dv = 28
  47.   IF v = 1 THEN dv = 29  ENDIF
  48.   day=@MON(x+340,y,"February",day,dv)
  49.   day=@MON(x+680,y,"March",day,31)
  50.   day=@MON(x+1020,y,"April",day,30)
  51.   day=@MON(x,y+280, "May",day, 31)
  52.   day=@MON(x+340,y+280,"June",day,30)
  53.   day=@MON(x+680,y+280,"July",day,31)
  54.   day=@MON(x+1020, y+280, "August",day, 31)
  55.   day=@MON(x,y+560,"September",day,30)
  56.   day=@MON(x+340,y+560,"October",day,31)
  57.   day=@MON(x+680,y+560,"November",day, 30)
  58.   day=@MON(x+1020,y+560,"December",day, 31)
  59.  
  60. RETURN
  61.  
  62. @MON(x1, y1, head, start, num)
  63.     FILL(1)
  64.     STYLE(1, 15)
  65.     TEXT(x1 + 60, y1, head)
  66.     days = 1
  67.     ln = start
  68.     y1 = y1 + 15
  69. #lab1
  70.     IF days > num THEN GOTO lab2  ENDIF
  71. #lab3
  72.     IF ln > 7 THEN GOTO lab4 ENDIF
  73.     IF days > num THEN GOTO lab2 ENDIF
  74.     @TEXT(x1, y1+30*ln, days)
  75.     days = days + 1
  76.     ln = ln + 1
  77.     GOTO lab3
  78. #lab4
  79.     x1 = x1 + 50
  80.     ln = 1
  81.     GOTO lab1
  82. #lab2
  83. RETURN ln
  84.  
  85. @TEXT(x2, y2, number)
  86.     TEXT(x2, y2, number)
  87.     COLOR(15)
  88.     shift = 37
  89.     IF number < 10 THEN shift = 20  ENDIF
  90.     RECTANGLE(x2+shift,y2-35,x2+160,y2+30)
  91.     COLOR(0)
  92. RETURN
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.